home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 August / macformat-040.iso / mac / Demos / Secrets of the Luxor® Demo / invitem / 00030.ls < prev    next >
Encoding:
Text File  |  1996-04-26  |  993 b   |  46 lines
  1. on mouseDown
  2.   global campath
  3.   alert("This is a Demo, You can't save Pictures")
  4. end
  5.  
  6. on svsht
  7.   global campath
  8.   set picb to window "pics"
  9.   tell the stage
  10.     set the fileName of picb to campath & "picbuf"
  11.   end tell
  12.   set top to 129
  13.   set left to 223
  14.   set bottom to 360
  15.   set right to 412
  16.   set crei to StageToCast(mnew, top, left, bottom, right)
  17.   repeat with i = 10 to 33
  18.     tell picb
  19.       set pich to the castType of cast i
  20.     end tell
  21.     if pich = #empty then
  22.       tell picb
  23.         duplicate(cast 9, cast i)
  24.       end tell
  25.       tell the stage
  26.         set the picture of cast 989 to crei(mGetHandle)
  27.       end tell
  28.       tell the stage
  29.         copyToClipBoard(cast 989)
  30.       end tell
  31.       tell picb
  32.         pasteClipBoardInto(cast i)
  33.       end tell
  34.       tell picb
  35.         saveMovie()
  36.       end tell
  37.       tell the stage
  38.         set the picture of cast 989 to the picture of cast 970
  39.       end tell
  40.       exit repeat
  41.     end if
  42.   end repeat
  43.   crei(mdispose)
  44.   forget(picb)
  45. end
  46.